DDDDDDDDDDDD ccccccecccccce «LLL 
DODDDDDDDDDD cccccccccccc LLL 
cecccccccccce «LLL 
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DOD DDD ccc LLL 
DOD DDD ccc LLL 
DDD DDD CCC LLL 
DDD DdbD CCC LLL 
DOD DdDD CCC LLL 
DOD DDD ccc LLL 
DDD DDD ccc LLL 
DDD DdDD ccc LLL 
DDD DDD CCC LLL 
DOD DbD CCC LLL 
DOD DOD ccc LLL 
D DDD CCC LLL 
DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD bbdD CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 


es 
ee eo 
ee aed ee ee ed ee ee ee 


am 16 
TT 
TT 
° 


Ce komad 
9 oe 
Sd Od Ok nd Od Od Od Od Od Og Od OO 
dE Od ad Od Od eed Od Ot 9 Ok Od Oy 


Ustad a 
dd 
ARS LAS LAS LADS LAS A Lk LL 


a4 
oH 
a4 
a4 
a 
aoa 
ad 
i) 
a4 
aa 


ter ILEeeIDerEXIT 


——S—=— SSS 


16 
- EXIT DCLS COMMAND EXECUTION . 15-SEP=190% 23:45:56 VAX/VMS Macro V04-00 Page 0 


116 
= EXIT DCLS COMMAND EXECUTION 15*SEP=1984 23:45:56 VAX/VMS M om 
2reee ribs $3:20:58 YOR/MES Macro yOs—00 ee 


-TITLE EXIT = EXIT DCLS COMMAND EXECUTION 
- IDENT Wibe-000" 


SRA EE HEAT AEAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAERARAERAAAAAAEEARARHEAAAEAAEAEEE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
Se ponaT iba NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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00 
000 —PAAARAEAALALALALALLALLALLALALELAS EEE REEL ERAS REEL EEE EERE EE ERE REE ERE ER ERE SLES SE 
9000 ; W. H. BROWN 25-JUN-1977 
9900 : EXIT COMMAND EXECUTION 
9000 : MODIFIED BY: 
$009 : V03-006 HWS0076 Harold Schultz 29-Jun-1984 
On6 ; Always run down images when EXIT command executed, 
o ; regardless of the indirect level. 
$00 : v03-005 HwWS0038 Harold Schultz 26-Mar-1984 
4 i : Correct error message output in DCLSWAIT. 
00 41; V03-004 PCG0006 Peter George 29-Jun-1983 
? ; Add home brew SSETIMR interlock mechanism. 
44: v03-003 PCG0005 Peter George 03-May-1983 
2 3 Specify REQIDT in SETIMR and CANTIM, 
00 47 ; v03-002 PCG0004 Peter George 17-Jan-1983 
bo 2 $ Preserve status across subroutine calls. 
50 ; v03-001 PCG0003 Peter George 30-Dec-1982 
2 Se Set status on batch exit. 
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Fb 4000 ZrSER= 88S 53:23:38 HAASE acre vot 00 age S, 

4 ; 

| i | MACRO LIBRARY CALLS 
8 PRCDEF ; DEFINE PROCESS WORK AREA 
00 9 WRKDEF : DEFINE COMMAND WORK AREA 
000 60 SCLIMSGDEF ; DEFINE CLI RELATED ERROR MESSAGES 
9000 64 SSTSDEF : DEFINE STATUS CODE FORM 
oooogess «8g .PSECT DCLSZCODE, BYTE .RD,NOWRT 
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_ »SBTTL EXIT COMMAND 
3 DCLSEXIT = EXIT COMMAND 

; THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE EXIT DCLS COMMAND. 
; INPUTS: 


COMMAND WORK AREA. 
F PROCESS WORK AREA. 


; OUTPUTS: 

THE EXIT EXPRESSION IS EVALUATED 

RO LOW BIT CLEAR INDICATES EXPRESSION EVALUATION FAILURE. 
RO = DCLS_ poate - EXPRESSION TOC peg 
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0 
9 RO = DCLS$"EXPSYN = EXPRESSION SYNTAX ERR 
RO = DCL$~ ven - INVALID CHARACTER IN NUMERIC STRING. 
0 RO = DCLS$- IVOPER - INVALID EXPRESSION OPERATOR. 
0 RO = DCLS"UNDSYM = UNDEFINED SYMBOL. 
00 a IF THE EXPRESSION EVALUTES 0 THE INDIRECT LEVEL 1S UNSTACKED 
00 9 ONE LEVEL AND THE STA FS IS veetit THE VALUE OF THE EXPRESSION, 
00 0 OR IS LEFT AS THE ORIGINAL TUE. oF THE EXPRESSION WAS NULL. 
09 31 RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 
2099 $8 : RO = DCL$_NORMAL - NORMAL COMPLETION. 
5 e 
0090 3 DCLSEXIT:: : EXIT COMMAND 
10000000 8F c9 0000 97 BISL3 #STS$M_INHIB_MSG : GET LAST STATUS WITH INHIBIT MSG 
58 0080 cB 006 98 PRC_L CStsTaTUS(AI1), RB ; 
FFF3° 30 00A 99 BSBW DCLSSETNBLK : FIND NON-BLANK CHARACTER 
09 13 000d 100 BEQL 108 : BR IF NONE-STATUS Gets SAVED 
FFEE* 30 000F 101 BSBW DCLSBINEXPR : EVALUATE BINARY EXPRESSION 
1¢ 50 —«E9 O12 1 2 BLBC =—_-« RO, 40 : BR IF ERROR EVALUATING EXPRESSION 
8 51 DO 0015 10 MOVL R1.R : SET RESULT OF EXPRESSION EVALUATION 
0080 te C58 p 018 10% 10$:  MOVL  RB.PRC_L_LSTSTATUS(R11) : STORE STATU 
FFEO" 01D 105 BSBW DCLSRURDONI : RUN DOWN Im MAGE BUT PRESERVE IND. LEVEL 
SC AB b 0 1 6 TSTL PRC_L_INDEPTH(R11) : INDIRECT LEVEL 0? 
0D 1 BEQL 50S" : BR IF THERE IS NOTHING TO UNSTACK 
FFD8' 3 1 8 BSBW OCLSUNSTACK : REMOVE ONE LEVEL OF INDIR 
50 0080 cB D 109 208 MOVL PRC_L_LSTSTATUS(R11),RO : SET RESULTANT 
D 110 BISW PURRS D.- : SET COMMAND IN EXECUTION 
FO AA F111 WRK_@_FLAGS(R10) ; 
05 1 11 40$:  RSB ; 
ie 
115 : AN EXIT COMMAND ISSUED FOR COMMAND LEVEL 0 
116 > THIS IS A CALL EXIT HANDLER/FORCE EXIT FOR INTERACTIVE JOBS AND 
i t A LOGOUT FOR BATCH JOBS. 
06 «€1 118 S0s: BBC #PRC_V : BRANCH IF INTERACTIVECIMAGE ALREADY 
F1 68 AB 4 120 PRC_O_ Fracstait), 208; RUN DOWN) 
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FFBE' F124 BRW DCLSABORT ; FORCE LOGOUT 
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v04=000 WAIT COMMAND 7786-138 33:28 £38 DEL -SRCIE XIT.MAR: 1 
ane F e .SBTTL WAIT COMMAND 
oe g > DCLSWAIT = WAIT COMMAND 
094 0; : THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE WAIT COMMAND. 
bod 1 gi : INPUTS: 
0042 133 | 
0042 134 ; R10 = BASE ADDRESS OF COMMAND WORK AREA. 
004 133 : R11 = BASE ADDRESS OF PROCESS WORK AREA. 
004 137 ; THE NEXT TOKEN ON THE COMMAND LINE MUST BE A VALID 
00% 138 ; EXPRESSION FOR DELTA TIME MINUS THE NUMBER OF DAYS FIELD. 
Boe Veo 3 : OUTPUTS: 
004 lag ; THE COMMAND FILE EXECUTION IS WAITED FOR THE SPECIFIED TIME. 
0042 144 DCLSWAIT:: : 
FFBB’ 30 0042 145 BSBW  DCLSMA > MARK CURRENT POSITION IN BUFFER 
52 F486 CA DO 0045 146 MOVL  WRK_L “EXPANDPTR (RIOD R2 : COPY START OF TIME FIELD 
62 2030 BF BO 004A 147 MOVW WATO7F : APPEND ZERO DAY COUNT FOR WAIT 
F486 CA 02 £0 004F 148 ADDL = #2, +My { RE ANDPTR (RIO) ; UPDATE EXPANSION POINTER 
FFAS" 30 0054 149 10$: BSBW DCLSMOUCRAR : coef ee ah TO PARSE BUFFER 
FB. 12 0057 = 150 BNEQ 1 + UNTIL END OF LINE 
FFAG’ 30 0059 151 BSBW  DCLSMARKEDTOKEN ; SET bESCRIPTOR OF TIME STRING 
51 D7 005C¢ 138 DECL RI : DISCOUNT EOL CHARACTER 
06 BB O005E 15 PUSHR wonc R1,R2> : BUILD DESCRIPTOR FOR TIME STRING 
57 66 AB 3E 0060 154 MOVAW WWAITIOSB(RI1), R7? : GET WAIT [OSB ADDRESS 
0064 155 SCANTIM.S mREOIDT ; CANCEL ANY PREVIOUS TIMERS 
53 SE 00 O06F 156 MOVL “Sr. + SAVE ADDRESS OF QUAD WORD DESCRIPTOR 
0072 157 SBINTIM_S (R3),(R3) : CONVERT TIME 10, BINARY DELTA FORMAT 
20 50 €9 007D 158 BLBC ~RO,30$ : BR IF ERROR IN Tl ME 
67 B4 0080 159 CLRW 7) : CLEAR WAIT I0SB STA 
0082 160 SSETIMR_S EFN=MEXESC_SYSEFN.- ; SET TIMER FOR SPECIFIED TIME 
0082 161 “DAYTIM=(R3) ,~ : 
0082 162 ASTADR=WAIT_AST,=- ; 
0082 163 REQIDT=R7 ep 
1150 €9 0099 164 LBC ~—_—«aRO, 308 : BR IF ERROR SETTING TIMER 
009C 165 SSYNCH_S {[0SB=(R7).- : WAIT THE SPECIFIED TIME 
009C 166 EEN=#EXESC_SYSEFN ; 
07 11 OOAB 167 BRB 5$ : GOTO EXIT 
OOAD 168 30S: STATUS IVDTIME : SET INVALID DELTA TIME. 
BE r¢ 0B4 169 35$: CLR (SP)+ + REMOVE SCRATCH QUAD WORD FROM STACK 


C4 
EXIT = EXIT DCLS COMMAND EXECUTION 15-SEP-1984 AX/VMS Macro vO4-00 Page 
v04-000 WAIT AST ROUTINE 2rSEpa1984 S3:co;o8 YORC VES Macro yoe~g ve 8, 
087 172 .SBTTL WAIT AST ROUTINE 
pef 1735 ;+ 
087 174  WAIT.AST = WAIT AST ROUTINE 
0087 176 ; THIS ROUTINE PROVIDES THE WAIT EVENT FLAG SYNCHRONIZATION. 
0087 178 ; INPUTS: 
0087 «179: 
Q0B7 180 NONE 
00B7 «181: 
0087 18¢ ; ouTPuTS: 
087 188 
0B? «184 : RO = SUCCESS 
00B7 «185 i= 
00B7 «186 
0087 187 WAIT AST: s;FLUSH OUTPUT 
0080 00B7 188 “WORD “M<R7> : 
04 BC 01 BO 00B9 189 OVW #104 (AP) iSET THE STATUS IN THE WAIT 10SB 
00BD 190 STATUS NORMAL “SET SUCCESSFUL STATUS 
06 00c4 191 RET : 
OCS 192 
o0cs 19 -END 
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EXIT 

Symbol table 
$811 
CLIS_IVDTIME 
-CLIS"NORMAL 
| DCLSABORT 

| DCLSBINEXPR 
 DCLSEXIT 

| DCLSMARK 

| DCLSMARKEDTOKEN 
DCLSMOVCHAR 


DCLSRUNDWN I 
DCLSSAVE STATUS 
DCLSSE TNBLK 
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C7L“RECALLPTR 
PRC“L~RESTART 
PRC“~L~SAVAP 
PRC“L~SAVFP 
PRC“L “SEVERITY 
PRC"L~SPWN 
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WRK-L-ERRORRIN 
WRK-L-EXPANDPTR 
WRK-L— IMAGE 
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6 YAX/ 
DCL 
000004 
B0000A0 
Ht Fy 
0000084 
0000088 
9000060 
0000074 
9000019 
000020 
00000E0 
0000000 
9000028 
000008 
0000040 
0000030 
0000038 
00000E8 
000011C¢ 
0000006 
(0000C6 
00000C8 
00000¢4 
000007A 
0000068 
0000064 
000006A 
0000114 
0000116 
00000CA 
000000CE 
000000cC¢ 
000000F 1 
00000066 
10000000 
Reeeeree 
Reaeeeree 
Reeeaerese 
gereneeee 
00000087 
FFFFFFCS 
FFFFFFDO 
FFFFFFDI 
FFFFFFCE 
FFFFFFCE 
FFFFFFCS 
FFFFFFCG 
FFFFFFC2 
FEEEEGBG 
FFFFFG 
FEFFE S96 
FFEEE9B6 
FFFFF486 
FEEEEGBE 
FFFFFFEG 
FFFFFOA 
FRFFF4B 
FFFFFFE 
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EXIT 
Symbol table 
| WRK_L_MARKPTR 
“WRK"L"PAR 


SIGNALRTN 
PECR 


WRK—W_ IMGCHAN 
WRK—W~PMPTLEN 


ARnNNnNOTDTN DNATA NNNnn 
NNNnNOTN THN HHH no 
THAN ROM TNH WN non no 
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PSECT name 


Attributes 
NOPIC USR 
NOPIC USR 
NOPIC USR 


00000000 
FFFFFFFC 
000000C5 


Page faults 


Initialization 
Command processing 


Pass 
pyabo} table sort 


ass 
Symbol iable output 

Psect synopsis output 
Cross-reference output 


Assembler run totals 

ihe working set Limit was 1050 pages. 

24786 bytes _(49 pages) of virtual memory were used to buffer the intermedi 
There were 30 pages of symbol table space allocated to hold 440 non-local 
193 source Lines were read in Pass 1, producing object records in Pass 
5 pages of virtual memory were used to define 22 macros. 
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} 
5-SEP=-1984 :45:5 AX/VMS Macro V04-00 Page 
Fa ae g 40:2 DCL.SRCJEXIT.MAR; 1 ° (8) | 
CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
CON ABS LCL NOSHR' EXE RD WRT NOVEC BYTE 
CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
ate code. 
and local symbols. 
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XIT = EXIT DCLS COMMAND EXECUTION 
VAX=11 Macro Run Statistics 


teases ar sec ee ae ear cere eos ee} 


! Macro Library statistics ! 


emer n ewer emacenae ssc eesecee ose 


Macros defined 


Macro Library name 


$255$DUA g:fs SYSLIBJSYSBLDOMLB.MLB; 1 9 
$255$DUA L.OBJJDCL.MLB; j 
$255SDUA28: 1S :0B) LIB.MLB;1 
Biittean 8: SYS IBISTARLET. MLB; 2 1 
TOTALS (all ‘ibraries) 1 


604 GETS were required to define 17 macros. 
There were no errors, warnings or information messages. 
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MACRO/LIS=LISS$:EXIT/OBJ=OBJ$:EXIT MSRCS:EXIT/UPDATE=(ENHS :EXIT) +EXECMLS/LIB+LIB$:DCL/LIB+SYSS$LIBRARY : SYSBLDMLB/LIB 
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